VERSION 5.00
Object = "{8E27C92E-1264-101C-8A2F-040224009C02}#7.0#0"; "MSCAL.OCX"
Begin VB.Form frmQuote 
   BackColor       =   &H00FFFFFF&
   Caption         =   "Service Quote"
   ClientHeight    =   7095
   ClientLeft      =   3615
   ClientTop       =   4725
   ClientWidth     =   11970
   Icon            =   "frmQuote.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   7095
   ScaleWidth      =   11970
   StartUpPosition =   1  'CenterOwner
   Begin VB.Timer timerQuote 
      Enabled         =   0   'False
      Interval        =   200
      Left            =   3600
      Top             =   6600
   End
   Begin VB.CommandButton cmdClose 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Cancel          =   -1  'True
      Caption         =   "OK"
      Height          =   315
      Left            =   6300
      MaskColor       =   &H0080C0FF&
      Style           =   1  'Graphical
      TabIndex        =   24
      Top             =   6660
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.CommandButton cmdContinue 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "C&ontinue"
      Height          =   315
      Left            =   4500
      MaskColor       =   &H00E0E0E0&
      Style           =   1  'Graphical
      TabIndex        =   23
      Top             =   6660
      Width           =   1215
   End
   Begin VB.Frame fraScreens 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'None
      Caption         =   "2340"
      Height          =   6525
      Index           =   4
      Left            =   0
      TabIndex        =   25
      Top             =   0
      Width           =   11960
      Begin VB.CommandButton cmdMPS 
         Appearance      =   0  'Flat
         BackColor       =   &H00E0E0E0&
         Caption         =   "&Multi-Piece"
         Height          =   315
         Left            =   5340
         MaskColor       =   &H0080C0FF&
         Style           =   1  'Graphical
         TabIndex        =   150
         Top             =   1920
         UseMaskColor    =   -1  'True
         Width           =   960
      End
      Begin VB.TextBox f58 
         Height          =   315
         Left            =   2100
         TabIndex        =   9
         ToolTipText     =   "Width"
         Top             =   1920
         Width           =   375
      End
      Begin VB.Frame fraSpcl 
         BackColor       =   &H00FFFFFF&
         Caption         =   "SmartPost"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000080FF&
         Height          =   1455
         Index           =   3
         Left            =   5100
         TabIndex        =   143
         Top             =   360
         Width           =   1455
         Begin VB.OptionButton optPM 
            BackColor       =   &H00FFFFFF&
            Caption         =   "PM"
            Enabled         =   0   'False
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   300
            TabIndex        =   145
            ToolTipText     =   "Priority Mail"
            Top             =   660
            Width           =   795
         End
         Begin VB.OptionButton optStdB 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Std B"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   300
            TabIndex        =   144
            ToolTipText     =   "Standard B"
            Top             =   300
            Value           =   -1  'True
            Width           =   795
         End
      End
      Begin VB.TextBox f60 
         Alignment       =   1  'Right Justify
         Height          =   315
         Index           =   1
         Left            =   10800
         TabIndex        =   133
         TabStop         =   0   'False
         Top             =   6000
         Width           =   615
      End
      Begin VB.TextBox f60 
         Alignment       =   1  'Right Justify
         Height          =   315
         Index           =   0
         Left            =   10800
         TabIndex        =   132
         TabStop         =   0   'False
         Top             =   5640
         Width           =   615
      End
      Begin VB.TextBox txtDetails 
         Alignment       =   1  'Right Justify
         Height          =   315
         Index           =   6
         Left            =   10440
         TabIndex        =   131
         TabStop         =   0   'False
         Top             =   4950
         Width           =   975
      End
      Begin VB.TextBox txtDetails 
         Alignment       =   1  'Right Justify
         Height          =   315
         Index           =   5
         Left            =   10440
         TabIndex        =   130
         TabStop         =   0   'False
         Top             =   4560
         Width           =   975
      End
      Begin VB.TextBox txtDetails 
         Alignment       =   1  'Right Justify
         Height          =   315
         Index           =   4
         Left            =   10440
         TabIndex        =   129
         TabStop         =   0   'False
         Top             =   4200
         Width           =   975
      End
      Begin VB.TextBox txtDetails 
         Alignment       =   1  'Right Justify
         Height          =   315
         Index           =   3
         Left            =   10440
         TabIndex        =   128
         TabStop         =   0   'False
         Top             =   3870
         Width           =   975
      End
      Begin VB.TextBox txtDetails 
         Alignment       =   1  'Right Justify
         Height          =   315
         Index           =   2
         Left            =   10440
         TabIndex        =   127
         TabStop         =   0   'False
         Top             =   3480
         Width           =   975
      End
      Begin VB.TextBox txtDetails 
         Alignment       =   1  'Right Justify
         Height          =   315
         Index           =   1
         Left            =   10440
         TabIndex        =   126
         TabStop         =   0   'False
         Top             =   3120
         Width           =   975
      End
      Begin VB.ComboBox cboBoxName 
         Height          =   315
         Left            =   3180
         TabIndex        =   11
         Top             =   1920
         Visible         =   0   'False
         Width           =   1815
      End
      Begin MSACAL.Calendar Calendar1 
         Height          =   255
         Left            =   1500
         TabIndex        =   109
         TabStop         =   0   'False
         Top             =   360
         Visible         =   0   'False
         Width           =   255
         _Version        =   524288
         _ExtentX        =   450
         _ExtentY        =   450
         _StockProps     =   1
         BackColor       =   16777215
         Year            =   2004
         Month           =   2
         Day             =   9
         DayLength       =   1
         MonthLength     =   2
         DayFontColor    =   0
         FirstDay        =   1
         GridCellEffect  =   1
         GridFontColor   =   10485760
         GridLinesColor  =   -2147483632
         ShowDateSelectors=   -1  'True
         ShowDays        =   -1  'True
         ShowHorizontalGrid=   -1  'True
         ShowTitle       =   0   'False
         ShowVerticalGrid=   -1  'True
         TitleFontColor  =   10485760
         ValueIsNull     =   -1  'True
         BeginProperty DayFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty GridFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty TitleFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Arial"
            Size            =   12.01
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.TextBox f24 
         ForeColor       =   &H00000000&
         Height          =   315
         Left            =   1500
         TabIndex        =   6
         Top             =   1560
         Width           =   975
      End
      Begin VB.ComboBox f16 
         Height          =   315
         Left            =   1500
         TabIndex        =   2
         Top             =   840
         Width           =   2175
      End
      Begin VB.TextBox f17 
         Height          =   315
         Left            =   4260
         TabIndex        =   3
         Top             =   840
         Width           =   735
      End
      Begin VB.TextBox f1670 
         Height          =   315
         Left            =   4260
         TabIndex        =   5
         Top             =   1200
         Width           =   735
      End
      Begin VB.TextBox f116 
         Height          =   315
         Left            =   1500
         Locked          =   -1  'True
         TabIndex        =   4
         Text            =   "1"
         ToolTipText     =   "Currently only single piece shipments are supported"
         Top             =   1200
         Width           =   735
      End
      Begin VB.TextBox f26 
         Height          =   315
         Left            =   4260
         TabIndex        =   7
         Top             =   1560
         Width           =   735
      End
      Begin VB.TextBox f57 
         Height          =   315
         Left            =   2700
         TabIndex        =   10
         ToolTipText     =   "Height"
         Top             =   1920
         Width           =   375
      End
      Begin VB.TextBox f59 
         Height          =   315
         Left            =   1500
         TabIndex        =   8
         ToolTipText     =   "Length"
         Top             =   1920
         Width           =   375
      End
      Begin VB.Frame fraSpcl 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Special Svcs"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000080FF&
         Height          =   1875
         Index           =   0
         Left            =   6720
         TabIndex        =   31
         Top             =   360
         Width           =   1455
         Begin VB.CheckBox f27 
            BackColor       =   &H00FFFFFF&
            Caption         =   "COD"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   300
            TabIndex        =   13
            Top             =   660
            Width           =   735
         End
         Begin VB.CheckBox f1266 
            BackColor       =   &H00FFFFFF&
            Caption         =   "SAT"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   300
            TabIndex        =   12
            ToolTipText     =   "Saturday Delivery"
            Top             =   300
            Width           =   735
         End
         Begin VB.CheckBox f440 
            BackColor       =   &H00FFFFFF&
            Caption         =   "RES"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   300
            TabIndex        =   14
            ToolTipText     =   "Residential Address"
            Top             =   1020
            Width           =   735
         End
      End
      Begin VB.Frame fraSpcl 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Ground/FHD"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000080FF&
         Height          =   1875
         Index           =   1
         Left            =   8340
         TabIndex        =   30
         Top             =   360
         Width           =   1455
         Begin VB.CheckBox f3018 
            BackColor       =   &H00FFFFFF&
            Caption         =   "NON-SP"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   300
            TabIndex        =   15
            ToolTipText     =   "Non-Standard Packaging"
            Top             =   300
            Width           =   1035
         End
         Begin VB.CheckBox f3020 
            BackColor       =   &H00FFFFFF&
            Caption         =   "DC"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   1
            Left            =   300
            TabIndex        =   16
            ToolTipText     =   " FHD Date Certain"
            Top             =   660
            Width           =   735
         End
         Begin VB.CheckBox f3020 
            BackColor       =   &H00FFFFFF&
            Caption         =   "AD"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   3
            Left            =   300
            TabIndex        =   18
            ToolTipText     =   "FHD Appointment Delivery"
            Top             =   1380
            Width           =   735
         End
         Begin VB.CheckBox f3020 
            BackColor       =   &H00FFFFFF&
            Caption         =   "ED"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   2
            Left            =   300
            TabIndex        =   17
            ToolTipText     =   "FHD Evening Delivery"
            Top             =   1020
            Width           =   735
         End
      End
      Begin VB.Frame fraSpcl 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Sig Svc"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000080FF&
         Height          =   1875
         Index           =   2
         Left            =   9960
         TabIndex        =   29
         Top             =   360
         Width           =   1455
         Begin VB.OptionButton f2399 
            BackColor       =   &H00FFFFFF&
            Caption         =   "None"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   1
            Left            =   300
            TabIndex        =   19
            ToolTipText     =   "No Sig Req"
            Top             =   300
            Width           =   795
         End
         Begin VB.OptionButton f2399 
            BackColor       =   &H00FFFFFF&
            Caption         =   "ISR"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   2
            Left            =   300
            TabIndex        =   20
            ToolTipText     =   "Indirect Sig Req"
            Top             =   660
            Width           =   795
         End
         Begin VB.OptionButton f2399 
            BackColor       =   &H00FFFFFF&
            Caption         =   "DSR"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   3
            Left            =   300
            TabIndex        =   21
            ToolTipText     =   "Direct Sig Req"
            Top             =   1020
            Width           =   795
         End
         Begin VB.OptionButton f2399 
            BackColor       =   &H00FFFFFF&
            Caption         =   "ASR"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   4
            Left            =   300
            TabIndex        =   22
            ToolTipText     =   "Adult Sig Req"
            Top             =   1380
            Width           =   795
         End
      End
      Begin VB.Frame fraShowType 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Caption         =   "Frame4"
         Height          =   1065
         Left            =   360
         TabIndex        =   26
         Top             =   3900
         Width           =   1275
         Begin VB.OptionButton optRate 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Discounted"
            Height          =   315
            Index           =   0
            Left            =   120
            TabIndex        =   28
            TabStop         =   0   'False
            Top             =   360
            Value           =   -1  'True
            Width           =   1155
         End
         Begin VB.OptionButton optRate 
            BackColor       =   &H00FFFFFF&
            Caption         =   "List"
            Height          =   315
            Index           =   1
            Left            =   120
            TabIndex        =   27
            TabStop         =   0   'False
            Top             =   660
            Width           =   675
         End
         Begin VB.Label Label48 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Show:"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000080FF&
            Height          =   255
            Index           =   1
            Left            =   120
            TabIndex        =   142
            Top             =   60
            Width           =   885
         End
      End
      Begin VB.ComboBox f8 
         Height          =   315
         Left            =   1500
         TabIndex        =   0
         Top             =   480
         Width           =   2175
      End
      Begin VB.TextBox f9 
         Height          =   315
         Left            =   4260
         TabIndex        =   1
         Top             =   480
         Width           =   735
      End
      Begin VB.Frame fraRate 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Caption         =   "Frame4"
         Height          =   3855
         Index           =   0
         Left            =   1680
         TabIndex        =   32
         Top             =   2700
         Width           =   6615
         Begin VB.CommandButton cmdError 
            BackColor       =   &H00E0E0E0&
            Caption         =   "Error"
            Height          =   315
            Index           =   7
            Left            =   5520
            Style           =   1  'Graphical
            TabIndex        =   149
            TabStop         =   0   'False
            Top             =   3360
            Visible         =   0   'False
            Width           =   975
         End
         Begin VB.TextBox txtDelTime 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   0
            Left            =   4440
            TabIndex        =   125
            TabStop         =   0   'False
            Top             =   420
            Width           =   840
         End
         Begin VB.TextBox f409 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   0
            Left            =   3405
            TabIndex        =   124
            TabStop         =   0   'False
            Top             =   420
            Width           =   840
         End
         Begin VB.CommandButton cmdError 
            BackColor       =   &H00E0E0E0&
            Caption         =   "Error"
            Height          =   315
            Index           =   0
            Left            =   5505
            Style           =   1  'Graphical
            TabIndex        =   115
            TabStop         =   0   'False
            Top             =   420
            Visible         =   0   'False
            Width           =   975
         End
         Begin VB.TextBox f1597 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   3
            Left            =   1440
            TabIndex        =   58
            TabStop         =   0   'False
            Top             =   1680
            Width           =   720
         End
         Begin VB.TextBox f1597 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   4
            Left            =   1440
            TabIndex        =   57
            TabStop         =   0   'False
            Top             =   2100
            Width           =   720
         End
         Begin VB.TextBox f1597 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   5
            Left            =   1440
            TabIndex        =   56
            TabStop         =   0   'False
            Top             =   2520
            Width           =   720
         End
         Begin VB.TextBox f1597 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   6
            Left            =   1440
            TabIndex        =   55
            TabStop         =   0   'False
            Top             =   2940
            Width           =   720
         End
         Begin VB.TextBox f409 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   1
            Left            =   3405
            TabIndex        =   48
            TabStop         =   0   'False
            Top             =   840
            Width           =   840
         End
         Begin VB.TextBox txtDelTime 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   1
            Left            =   4440
            TabIndex        =   47
            TabStop         =   0   'False
            Top             =   840
            Width           =   840
         End
         Begin VB.TextBox f409 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   2
            Left            =   3405
            TabIndex        =   46
            TabStop         =   0   'False
            Top             =   1260
            Width           =   840
         End
         Begin VB.TextBox txtDelTime 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   2
            Left            =   4440
            TabIndex        =   45
            TabStop         =   0   'False
            Top             =   1260
            Width           =   840
         End
         Begin VB.TextBox f409 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   3
            Left            =   3405
            TabIndex        =   44
            TabStop         =   0   'False
            Top             =   1680
            Width           =   840
         End
         Begin VB.TextBox txtDelTime 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   3
            Left            =   4440
            TabIndex        =   43
            TabStop         =   0   'False
            Top             =   1680
            Width           =   840
         End
         Begin VB.TextBox f409 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   4
            Left            =   3405
            TabIndex        =   42
            TabStop         =   0   'False
            Top             =   2100
            Width           =   840
         End
         Begin VB.TextBox txtDelTime 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   4
            Left            =   4440
            TabIndex        =   41
            TabStop         =   0   'False
            Top             =   2100
            Width           =   840
         End
         Begin VB.TextBox f409 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   5
            Left            =   3405
            TabIndex        =   40
            TabStop         =   0   'False
            Top             =   2520
            Width           =   840
         End
         Begin VB.TextBox f409 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   6
            Left            =   3405
            TabIndex        =   39
            TabStop         =   0   'False
            Top             =   2940
            Width           =   840
         End
         Begin VB.CommandButton cmdError 
            BackColor       =   &H00E0E0E0&
            Caption         =   "Error"
            Height          =   315
            Index           =   1
            Left            =   5505
            Style           =   1  'Graphical
            TabIndex        =   38
            TabStop         =   0   'False
            Top             =   840
            Visible         =   0   'False
            Width           =   975
         End
         Begin VB.CommandButton cmdError 
            BackColor       =   &H00E0E0E0&
            Caption         =   "Error"
            Height          =   315
            Index           =   2
            Left            =   5505
            Style           =   1  'Graphical
            TabIndex        =   37
            TabStop         =   0   'False
            Top             =   1260
            Visible         =   0   'False
            Width           =   975
         End
         Begin VB.CommandButton cmdError 
            BackColor       =   &H00E0E0E0&
            Caption         =   "Error"
            Height          =   315
            Index           =   3
            Left            =   5505
            Style           =   1  'Graphical
            TabIndex        =   36
            TabStop         =   0   'False
            Top             =   1680
            Visible         =   0   'False
            Width           =   975
         End
         Begin VB.CommandButton cmdError 
            BackColor       =   &H00E0E0E0&
            Caption         =   "Error"
            Height          =   315
            Index           =   4
            Left            =   5505
            Style           =   1  'Graphical
            TabIndex        =   35
            TabStop         =   0   'False
            Top             =   2100
            Visible         =   0   'False
            Width           =   975
         End
         Begin VB.CommandButton cmdError 
            BackColor       =   &H00E0E0E0&
            Caption         =   "Error"
            Height          =   315
            Index           =   5
            Left            =   5505
            Style           =   1  'Graphical
            TabIndex        =   34
            TabStop         =   0   'False
            Top             =   2520
            Visible         =   0   'False
            Width           =   975
         End
         Begin VB.CommandButton cmdError 
            BackColor       =   &H00E0E0E0&
            Caption         =   "Error"
            Height          =   315
            Index           =   6
            Left            =   5505
            Style           =   1  'Graphical
            TabIndex        =   33
            TabStop         =   0   'False
            Top             =   2940
            Visible         =   0   'False
            Width           =   975
         End
         Begin VB.TextBox f1596 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   3
            Left            =   1440
            TabIndex        =   72
            TabStop         =   0   'False
            Top             =   1680
            Width           =   720
         End
         Begin VB.TextBox f1596 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   4
            Left            =   1440
            TabIndex        =   73
            TabStop         =   0   'False
            Top             =   2100
            Width           =   720
         End
         Begin VB.TextBox f1596 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   5
            Left            =   1440
            TabIndex        =   74
            TabStop         =   0   'False
            Top             =   2520
            Width           =   720
         End
         Begin VB.TextBox f1596 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   6
            Left            =   1440
            TabIndex        =   75
            TabStop         =   0   'False
            Top             =   2940
            Width           =   720
         End
         Begin VB.TextBox f37 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   2
            Left            =   480
            TabIndex        =   80
            TabStop         =   0   'False
            Top             =   1260
            Width           =   720
         End
         Begin VB.TextBox f37 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   3
            Left            =   480
            TabIndex        =   79
            TabStop         =   0   'False
            Top             =   1680
            Width           =   720
         End
         Begin VB.TextBox f37 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   4
            Left            =   480
            TabIndex        =   78
            TabStop         =   0   'False
            Top             =   2100
            Width           =   720
         End
         Begin VB.TextBox f37 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   5
            Left            =   480
            TabIndex        =   77
            TabStop         =   0   'False
            Top             =   2520
            Width           =   720
         End
         Begin VB.TextBox f1528 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   2
            Left            =   480
            TabIndex        =   64
            TabStop         =   0   'False
            Top             =   1260
            Width           =   720
         End
         Begin VB.TextBox f1528 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   3
            Left            =   480
            TabIndex        =   63
            TabStop         =   0   'False
            Top             =   1680
            Width           =   720
         End
         Begin VB.TextBox f1528 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   4
            Left            =   480
            TabIndex        =   62
            TabStop         =   0   'False
            Top             =   2100
            Width           =   720
         End
         Begin VB.TextBox f1528 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   5
            Left            =   480
            TabIndex        =   61
            TabStop         =   0   'False
            Top             =   2520
            Width           =   720
         End
         Begin VB.TextBox f1598 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   2
            Left            =   2420
            TabIndex        =   66
            TabStop         =   0   'False
            Top             =   1260
            Width           =   720
         End
         Begin VB.TextBox f1598 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   3
            Left            =   2420
            TabIndex        =   67
            TabStop         =   0   'False
            Top             =   1680
            Width           =   720
         End
         Begin VB.TextBox f1598 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   4
            Left            =   2420
            TabIndex        =   68
            TabStop         =   0   'False
            Top             =   2100
            Width           =   720
         End
         Begin VB.TextBox f1598 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   5
            Left            =   2420
            TabIndex        =   69
            TabStop         =   0   'False
            Top             =   2520
            Width           =   720
         End
         Begin VB.TextBox f1598 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   6
            Left            =   2420
            TabIndex        =   70
            TabStop         =   0   'False
            Top             =   2940
            Width           =   720
         End
         Begin VB.TextBox f37 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   6
            Left            =   480
            TabIndex        =   76
            TabStop         =   0   'False
            Top             =   2940
            Width           =   720
         End
         Begin VB.TextBox f37 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   1
            Left            =   480
            TabIndex        =   82
            TabStop         =   0   'False
            Top             =   840
            Width           =   720
         End
         Begin VB.TextBox f37 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   0
            Left            =   480
            TabIndex        =   117
            TabStop         =   0   'False
            Top             =   420
            Width           =   720
         End
         Begin VB.TextBox f1597 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   0
            Left            =   1440
            TabIndex        =   120
            TabStop         =   0   'False
            Top             =   420
            Width           =   720
         End
         Begin VB.TextBox f1528 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   6
            Left            =   480
            TabIndex        =   60
            TabStop         =   0   'False
            Top             =   2940
            Width           =   720
         End
         Begin VB.TextBox f37 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   7
            Left            =   480
            TabIndex        =   111
            TabStop         =   0   'False
            Top             =   3360
            Width           =   720
         End
         Begin VB.TextBox f1597 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   2
            Left            =   1440
            TabIndex        =   59
            TabStop         =   0   'False
            Top             =   1260
            Width           =   720
         End
         Begin VB.TextBox f1596 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   7
            Left            =   1440
            TabIndex        =   112
            TabStop         =   0   'False
            Top             =   3360
            Width           =   720
         End
         Begin VB.TextBox f1597 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   7
            Left            =   1440
            TabIndex        =   147
            TabStop         =   0   'False
            Top             =   3360
            Width           =   720
         End
         Begin VB.TextBox f1598 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   7
            Left            =   2420
            TabIndex        =   113
            TabStop         =   0   'False
            Top             =   3360
            Width           =   720
         End
         Begin VB.TextBox f1528 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   7
            Left            =   480
            TabIndex        =   146
            TabStop         =   0   'False
            Top             =   3360
            Width           =   720
         End
         Begin VB.TextBox f1528 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   0
            Left            =   480
            TabIndex        =   119
            TabStop         =   0   'False
            Top             =   420
            Width           =   720
         End
         Begin VB.TextBox f1528 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   1
            Left            =   480
            TabIndex        =   81
            TabStop         =   0   'False
            Top             =   840
            Width           =   720
         End
         Begin VB.TextBox f1596 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   2
            Left            =   1440
            TabIndex        =   71
            TabStop         =   0   'False
            Top             =   1260
            Width           =   720
         End
         Begin VB.TextBox f1597 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   1
            Left            =   1440
            TabIndex        =   83
            TabStop         =   0   'False
            Top             =   840
            Width           =   720
         End
         Begin VB.TextBox f1596 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   0
            Left            =   1440
            TabIndex        =   121
            TabStop         =   0   'False
            Top             =   420
            Width           =   720
         End
         Begin VB.TextBox f1596 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   1
            Left            =   1440
            TabIndex        =   84
            TabStop         =   0   'False
            Top             =   840
            Width           =   720
         End
         Begin VB.TextBox f1598 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   0
            Left            =   2420
            TabIndex        =   123
            TabStop         =   0   'False
            Top             =   420
            Width           =   720
         End
         Begin VB.TextBox f1599 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   0
            Left            =   2420
            TabIndex        =   122
            TabStop         =   0   'False
            Top             =   420
            Width           =   720
         End
         Begin VB.TextBox f1599 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   2
            Left            =   2420
            TabIndex        =   50
            TabStop         =   0   'False
            Top             =   1260
            Width           =   720
         End
         Begin VB.TextBox f1599 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   3
            Left            =   2420
            TabIndex        =   51
            TabStop         =   0   'False
            Top             =   1680
            Width           =   720
         End
         Begin VB.TextBox f1599 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   4
            Left            =   2420
            TabIndex        =   52
            TabStop         =   0   'False
            Top             =   2100
            Width           =   720
         End
         Begin VB.TextBox f1599 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   5
            Left            =   2420
            TabIndex        =   53
            TabStop         =   0   'False
            Top             =   2520
            Width           =   720
         End
         Begin VB.TextBox f1599 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   6
            Left            =   2420
            TabIndex        =   54
            TabStop         =   0   'False
            Top             =   2940
            Width           =   720
         End
         Begin VB.TextBox f1599 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   7
            Left            =   2420
            TabIndex        =   148
            TabStop         =   0   'False
            Top             =   3360
            Width           =   720
         End
         Begin VB.TextBox f1598 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   1
            Left            =   2420
            TabIndex        =   65
            TabStop         =   0   'False
            Top             =   840
            Width           =   720
         End
         Begin VB.TextBox f1599 
            Alignment       =   1  'Right Justify
            Height          =   315
            Index           =   1
            Left            =   2420
            TabIndex        =   49
            TabStop         =   0   'False
            Top             =   840
            Width           =   720
         End
         Begin VB.Label Label1 
            Alignment       =   1  'Right Justify
            BackColor       =   &H00FFFFFF&
            Caption         =   "FO"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   1
            Left            =   120
            TabIndex        =   118
            ToolTipText     =   "FedEx First Overnight"
            Top             =   480
            Width           =   315
         End
         Begin VB.Line Line22 
            BorderColor     =   &H0080C0FF&
            Index           =   9
            X1              =   0
            X2              =   5370
            Y1              =   0
            Y2              =   0
         End
         Begin VB.Label Label1 
            Alignment       =   1  'Right Justify
            BackColor       =   &H00FFFFFF&
            Caption         =   "SP"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   0
            Left            =   120
            TabIndex        =   114
            ToolTipText     =   "FedEx SmartPost"
            Top             =   3420
            Width           =   300
         End
         Begin VB.Line Line22 
            BorderColor     =   &H0080C0FF&
            Index           =   8
            X1              =   0
            X2              =   5370
            Y1              =   3300
            Y2              =   3300
         End
         Begin VB.Line Line23 
            BorderColor     =   &H0080C0FF&
            Index           =   0
            X1              =   1320
            X2              =   1320
            Y1              =   0
            Y2              =   3720
         End
         Begin VB.Line Line22 
            BorderColor     =   &H0080C0FF&
            Index           =   1
            X1              =   0
            X2              =   5370
            Y1              =   3720
            Y2              =   3720
         End
         Begin VB.Line Line23 
            BorderColor     =   &H0080C0FF&
            Index           =   1
            X1              =   0
            X2              =   0
            Y1              =   0
            Y2              =   3720
         End
         Begin VB.Line Line23 
            BorderColor     =   &H0080C0FF&
            Index           =   2
            X1              =   2280
            X2              =   2280
            Y1              =   0
            Y2              =   3720
         End
         Begin VB.Line Line23 
            BorderColor     =   &H0080C0FF&
            Index           =   3
            X1              =   3280
            X2              =   3280
            Y1              =   0
            Y2              =   3720
         End
         Begin VB.Line Line23 
            BorderColor     =   &H0080C0FF&
            Index           =   4
            X1              =   4320
            X2              =   4320
            Y1              =   0
            Y2              =   3300
         End
         Begin VB.Line Line22 
            BorderColor     =   &H0080C0FF&
            Index           =   3
            X1              =   0
            X2              =   5370
            Y1              =   1200
            Y2              =   1200
         End
         Begin VB.Line Line22 
            BorderColor     =   &H0080C0FF&
            Index           =   4
            X1              =   0
            X2              =   5370
            Y1              =   1620
            Y2              =   1620
         End
         Begin VB.Line Line22 
            BorderColor     =   &H0080C0FF&
            Index           =   5
            X1              =   0
            X2              =   5370
            Y1              =   2040
            Y2              =   2040
         End
         Begin VB.Line Line22 
            BorderColor     =   &H0080C0FF&
            Index           =   6
            X1              =   0
            X2              =   5370
            Y1              =   2460
            Y2              =   2460
         End
         Begin VB.Line Line22 
            BorderColor     =   &H0080C0FF&
            Index           =   7
            X1              =   0
            X2              =   5370
            Y1              =   2880
            Y2              =   2880
         End
         Begin VB.Label Label1 
            Alignment       =   1  'Right Justify
            BackColor       =   &H00FFFFFF&
            Caption         =   "PO"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   27
            Left            =   120
            TabIndex        =   91
            ToolTipText     =   "FedEx Priority Overnight"
            Top             =   900
            Width           =   315
         End
         Begin VB.Label Label1 
            Alignment       =   1  'Right Justify
            BackColor       =   &H00FFFFFF&
            Caption         =   "SO"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   28
            Left            =   120
            TabIndex        =   90
            ToolTipText     =   "FedEx Standard Overnight"
            Top             =   1320
            Width           =   315
         End
         Begin VB.Label Label1 
            Alignment       =   1  'Right Justify
            BackColor       =   &H00FFFFFF&
            Caption         =   "E2"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   29
            Left            =   120
            TabIndex        =   89
            ToolTipText     =   "FedEx 2-Day"
            Top             =   1740
            Width           =   315
         End
         Begin VB.Label Label1 
            Alignment       =   1  'Right Justify
            BackColor       =   &H00FFFFFF&
            Caption         =   "E3"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   30
            Left            =   120
            TabIndex        =   88
            ToolTipText     =   "FedEx Economy"
            Top             =   2160
            Width           =   315
         End
         Begin VB.Label Label1 
            Alignment       =   1  'Right Justify
            BackColor       =   &H00FFFFFF&
            Caption         =   "GR"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   31
            Left            =   120
            TabIndex        =   87
            ToolTipText     =   "FedEx Ground"
            Top             =   2580
            Width           =   300
         End
         Begin VB.Label Label1 
            Alignment       =   1  'Right Justify
            BackColor       =   &H00FFFFFF&
            Caption         =   "HD"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   32
            Left            =   120
            TabIndex        =   86
            ToolTipText     =   "FedEx Home Delivery"
            Top             =   3000
            Width           =   315
         End
         Begin VB.Line Line23 
            BorderColor     =   &H0080C0FF&
            Index           =   6
            X1              =   5370
            X2              =   5370
            Y1              =   0
            Y2              =   3720
         End
         Begin VB.Line Line22 
            BorderColor     =   &H0080C0FF&
            Index           =   2
            X1              =   0
            X2              =   5370
            Y1              =   360
            Y2              =   360
         End
         Begin VB.Line Line22 
            BorderColor     =   &H0080C0FF&
            Index           =   0
            X1              =   0
            X2              =   5370
            Y1              =   780
            Y2              =   780
         End
         Begin VB.Label Label1 
            Alignment       =   2  'Center
            BackColor       =   &H00FFFFFF&
            Caption         =   "Hndling"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   33
            Left            =   1440
            TabIndex        =   95
            Top             =   120
            Width           =   735
         End
         Begin VB.Label Label1 
            Alignment       =   2  'Center
            BackColor       =   &H00FFFFFF&
            Caption         =   "Time"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   36
            Left            =   4500
            TabIndex        =   93
            Top             =   120
            Width           =   675
         End
         Begin VB.Label Label1 
            Alignment       =   2  'Center
            BackColor       =   &H00FFFFFF&
            Caption         =   "Date"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   35
            Left            =   3480
            TabIndex        =   92
            Top             =   120
            Width           =   675
         End
         Begin VB.Label Label1 
            Alignment       =   2  'Center
            BackColor       =   &H00FFFFFF&
            Caption         =   "Total"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   26
            Left            =   2460
            TabIndex        =   85
            Top             =   120
            Width           =   615
         End
         Begin VB.Label lblRate 
            Alignment       =   2  'Center
            BackColor       =   &H00FFFFFF&
            Caption         =   "Net"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   0
            Left            =   540
            TabIndex        =   94
            Top             =   120
            Width           =   720
         End
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Billed Wgt Ground:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   58
         Left            =   8940
         TabIndex        =   141
         Top             =   6060
         Width           =   1755
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Billed Wgt Express:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   57
         Left            =   8940
         TabIndex        =   140
         Top             =   5760
         Width           =   1755
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Total Charge:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   54
         Left            =   9000
         TabIndex        =   139
         Top             =   4980
         Width           =   1335
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Handling Charge:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   53
         Left            =   8760
         TabIndex        =   138
         Top             =   4620
         Width           =   1575
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Net Charge:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   52
         Left            =   8880
         TabIndex        =   137
         Top             =   4260
         Width           =   1455
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Total Surcharges:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   51
         Left            =   8760
         TabIndex        =   136
         Top             =   3900
         Width           =   1575
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Total Discount:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   50
         Left            =   9000
         TabIndex        =   135
         Top             =   3540
         Width           =   1335
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Gross Charge:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   49
         Left            =   9000
         TabIndex        =   134
         Top             =   3180
         Width           =   1335
      End
      Begin VB.Line Line1 
         BorderColor     =   &H000080FF&
         BorderWidth     =   2
         Index           =   15
         X1              =   360
         X2              =   11640
         Y1              =   120
         Y2              =   120
      End
      Begin VB.Label Label48 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Rate Details"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000080FF&
         Height          =   255
         Index           =   0
         Left            =   8640
         TabIndex        =   116
         Top             =   2415
         Width           =   2775
      End
      Begin VB.Label lblShipDate 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Ship Date:"
         Height          =   255
         Left            =   600
         TabIndex        =   110
         Top             =   1620
         Width           =   855
      End
      Begin VB.Image Image2 
         Height          =   345
         Left            =   2580
         Picture         =   "frmQuote.frx":030A
         Stretch         =   -1  'True
         Top             =   1560
         Width           =   345
      End
      Begin VB.Line Line1 
         BorderColor     =   &H000080FF&
         BorderWidth     =   2
         Index           =   14
         X1              =   540
         X2              =   8220
         Y1              =   2400
         Y2              =   2400
      End
      Begin VB.Label Label19 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Courtesy Rates and Delivery Commitments"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000080FF&
         Height          =   255
         Left            =   360
         TabIndex        =   108
         Top             =   2415
         Width           =   4455
      End
      Begin VB.Line Line1 
         BorderColor     =   &H000080FF&
         BorderWidth     =   2
         Index           =   16
         X1              =   8460
         X2              =   8460
         Y1              =   2460
         Y2              =   6420
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   " Dest St:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   38
         Left            =   600
         TabIndex        =   107
         Top             =   900
         Width           =   855
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Zip:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   42
         Left            =   3840
         TabIndex        =   106
         Top             =   900
         Width           =   375
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Wgt:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   39
         Left            =   3480
         TabIndex        =   105
         Top             =   1260
         Width           =   735
      End
      Begin VB.Label Label56 
         BackColor       =   &H00FFFFFF&
         Caption         =   "Service Quote Properties"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000080FF&
         Height          =   255
         Left            =   360
         TabIndex        =   104
         Top             =   180
         Width           =   3375
      End
      Begin VB.Line Line1 
         BorderColor     =   &H000080FF&
         BorderWidth     =   2
         Index           =   17
         X1              =   8640
         X2              =   11640
         Y1              =   2400
         Y2              =   2400
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "# Pkgs:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   40
         Left            =   720
         TabIndex        =   103
         Top             =   1260
         Width           =   735
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Declared Value:"
         Height          =   255
         Index           =   55
         Left            =   2760
         TabIndex        =   102
         Top             =   1620
         Width           =   1455
      End
      Begin VB.Label Label73 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         Caption         =   "x"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   1
         Left            =   2460
         TabIndex        =   101
         Top             =   1950
         Width           =   255
      End
      Begin VB.Label Label24 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         Caption         =   "x"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   1
         Left            =   1860
         TabIndex        =   100
         Top             =   1950
         Width           =   255
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Dimensions:"
         Height          =   255
         Index           =   56
         Left            =   480
         TabIndex        =   99
         Top             =   1980
         Width           =   915
      End
      Begin VB.Label Label2 
         BackColor       =   &H00FFFFFF&
         Caption         =   "L x W x H in."
         ForeColor       =   &H000080FF&
         Height          =   255
         Left            =   3240
         TabIndex        =   98
         Top             =   2040
         Width           =   1215
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Origin St:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   10
         Left            =   600
         TabIndex        =   97
         Top             =   540
         Width           =   855
      End
      Begin VB.Label Label1 
         Alignment       =   1  'Right Justify
         BackColor       =   &H00FFFFFF&
         Caption         =   "Zip:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   59
         Left            =   3840
         TabIndex        =   96
         Top             =   540
         Width           =   375
      End
   End
End
Attribute VB_Name = "frmQuote"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


' 2008-09-28, JFW, Remove quote weight type code "LBS".
' 2009-02-01, JFW, Found that Close button kept quote screen alterations.  OK, but ...
' 2009-02-01, JFW, Allow Unload to reset Ship screen buttons.
' 2009-02-01, JFW, Number of packages from Ship screen.

Dim m_strErrorMsg(8) As String      'Holds quote errors for each service
Dim m_strSvcCodes(7) As String      'Hold Service codes
'---------------------------------------------------------------------------------------
' Procedure : Calendar1_Click()
' DateTime  : 2/18/2004
' Purpose   : Puts date selected on calendar in ShipDate field.
'---------------------------------------------------------------------------------------
'
Private Sub Calendar1_DblClick()
    f24.Text = Calendar1.Value
    Calendar1.Visible = False
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cboBoxName_LostFocus()
' DateTime  : 20080122-03
' Purpose   : Enters DIMs into DIM fields
'---------------------------------------------------------------------------------------
'
Private Sub cboBoxName_LostFocus()
    
    Call UpdateBoxDims(f57, f58, f59, cboBoxName)

End Sub

'---------------------------------------------------------------------------------------
' Procedure : cmdClose_Click()
' DateTime  : 20070625-01
' Purpose   : Close Quote form, clear boolean and set focus to frmShip.
'---------------------------------------------------------------------------------------
'
Private Sub cmdClose_Click()
    On Error GoTo EH
    
    ' Me.Hide
   
   '20070625-01 Added MPS functionality to Service Quote
    g_blnIsQuote = False
    
    '20070914-01 Enable buttona on frmShip
    With frmShip
        Call .EnableButtons
        .SetFocus
    End With
    
    Unload Me
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:cmdClose_Click"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdMPS_Click()
' DateTime  : '20070625-01 Added MPS functionality to Service Quote
' Purpose   : Show MPS form
'---------------------------------------------------------------------------------------
'
Private Sub cmdMPS_Click()
    On Error GoTo EH
    
    ' 2012-03-20, JFW, This disconnects quote MPS from Ship MPS
    'g_blnIsQuote = True
    
    frmMPS.Show vbModeless, Me
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:cmdMPS_Click"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : f24_Change
' DateTime  : 10/6/2004
' Purpose   : Highlights the Ship Date field if Future Day Shipping
'---------------------------------------------------------------------------------------
'
Private Sub f24_Change()
    On Error GoTo EH
    
    If IsDate(f24) Then
        If DateDiff("d", Date, CDate(f24)) > 0 Then
            f24.BackColor = &HC0E0FF
        ElseIf DateDiff("d", Date, CDate(f24)) < 0 Then
            f24 = Date
            Calendar1.Today
        Else
            f24.BackColor = &HFFFFFF
        End If
        
    End If

    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:f24_Change"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : f8_Change
' DateTime  : 10/6/2004
' Purpose   : Call routine to look up full state name text.
'---------------------------------------------------------------------------------------
'
Private Sub f8_Change()
    If Len(f8) >= 2 Then
        Call SetComboSelection(f8, f8)
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)


    On Error GoTo EH
    
   '20070625-01 Added MPS functionality to Service Quote
    g_blnIsQuote = False
    
    '20070914-01 Enable buttona on frmShip
    With frmShip
        Call .EnableButtons
        .SetFocus
    End With
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:Form_Terminate"

End Sub

'---------------------------------------------------------------------------------------
' Procedure : fraRate_MouseMove()
' DateTime  : 7/16/2004
' Purpose   : When mouse is on fraRate on Service Quote, the Rate Details are cleared.
'---------------------------------------------------------------------------------------
'
Private Sub fraRate_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error GoTo EH
    
    Call ClearRateDetails
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:fraRate_MouseMove"

End Sub
'---------------------------------------------------------------------------------------
' Module    : Image2_Click()
' DateTime  : 3/16/2004
' Author    : Chris Elwell
' Purpose   : Show the ShipDate calendar
'---------------------------------------------------------------------------------------
'
Private Sub Image2_Click()
    Calendar1.Visible = True
End Sub
'---------------------------------------------------------------------------------------
' Module    : cmdContinue_Click()
' DateTime  : 20070625
' Author    : Chris Elwell
' Purpose   : Continue button clicked. Call routines to do quotes.
'---------------------------------------------------------------------------------------
'
Private Sub cmdContinue_Click()
    
    Call ClearGlobalArrays
    Call AssignFormGlobalVars
    Call StartQuotes
    Call DeleteMPS("QUOTE")

End Sub
'---------------------------------------------------------------------------------------
' Module    : Form_Activate()
' DateTime  : 20070625
' Author    : Chris Elwell
' Purpose   : When form gets focus set values of some fields if not already populated
'---------------------------------------------------------------------------------------
'
Private Sub Form_Activate()
    
    On Error GoTo EH
    
    Me.Left = frmShip.Left
    Me.Top = frmShip.Top + 1530
    
    With frmSetup
        f8 = IIf(f8 = "", .f8, f8)
        f9 = IIf(f9 = "", .f9, f9)
        If .optListandActual Then
            fraShowType.Visible = True
        ElseIf .optActual Then
            fraShowType.Visible = False
        Else
            fraShowType.Visible = False
        End If
    End With
    With frmShip
        f16 = IIf(f16 = "", .f16, f16)
        f17 = IIf(f17 = "", .f17, f17)
        f1670 = IIf(f1670 = "", .f1670, f1670)
        f26 = IIf(f26 = "", .f26, f26)
        f57 = IIf(f57 = "", .f57, f57)
        f58 = IIf(f58 = "", .f58, f58)
        f59 = IIf(f59 = "", .f59, f59)
        cboBoxName = IIf(cboBoxName = "", .cboBoxName, cboBoxName)
        f440 = .f440
        f1266 = .f1266(0)
        
        f27 = IIf(.f27(0) = 1 Or .f27(2) = 1, 1, 0)
        f3018 = IIf(.f3018(0) = 1 Or .f3018(1) = 1, 1, 0)
        f3020(1) = IIf(.f3020(0) = 1, 1, 0)
        f3020(2) = IIf(.f3020(1) = 1, 1, 0)
        f3020(3) = IIf(.f3020(2) = 1, 1, 0)
        'If any Sig Req button selected None is not selected
        For i = 0 To .f1208.UBound
            If .f1208(i) = 1 Then
                f2399(1) = False
                Exit For
            Else
                f2399(1) = True
            End If
        Next
    
        f116.Text = .f116.Text
        
    End With
    'Select Sig Req type from frmSigReq if None not selected
    With frmSigReq
        If f2399(1) = False Then
            f2399(2) = IIf(.f2399(2), True, False)
            f2399(3) = IIf(.f2399(3), True, False)
            f2399(4) = IIf(.f2399(4), True, False)
        End If
    End With

    Call AfterScreenChange(Me)

    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:Form_Activate"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : Form_Load()
' DateTime  : 20070625
' Purpose   : Call routines to load combos and set some initial values.
'---------------------------------------------------------------------------------------
'
Private Sub Form_Load()
    
    On Error GoTo EH
    
    Call LoadBoxDIMsCombos(cboBoxName)
    Call LoadStates(f8)
    Call LoadStates(f16)
    Calendar1.Height = 2295 'Ship date - Ship Tab
    Calendar1.Width = 2955
    f24 = Date
    Calendar1.Today
    optStdB = True
    m_strSvcCodes(0) = "06"
    m_strSvcCodes(1) = "01"
    m_strSvcCodes(2) = "05"
    m_strSvcCodes(3) = "03"
    m_strSvcCodes(4) = "20"
    m_strSvcCodes(5) = "92"
    m_strSvcCodes(6) = "90"
    
    ' 2009-11-11, JFW, Smartpost only for US origin
    f37(7).Visible = (g_str117 = "US")
    f1528(7).Visible = (g_str117 = "US")
    f1596(7).Visible = (g_str117 = "US")
    f1597(7).Visible = (g_str117 = "US")
    f1598(7).Visible = (g_str117 = "US")
    f1599(7).Visible = (g_str117 = "US")
    cmdError(7).Visible = False
        
    timerQuote.Enabled = True
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:Form_Load"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : GetDelTimes()
' DateTime  : 20070626
' Purpose   : Uses the Service Area that was returned from the FSMSQuote control and
'             does a lookup in one of the tables in the FSMSClient.mdb.
'---------------------------------------------------------------------------------------
'
Public Sub GetDelTimes(ByVal strSvcArea As String)
    Dim strQuery As String
    Dim rsSA As New ADODB.Recordset
    Dim strTable As String
    
    On Error GoTo EH
    
    If f27 = 1 Then
        If f1266 = 1 Then strTable = "SACODSAT"
        If f1266 = 0 And f440 = 1 Then strTable = "SACODRES"
        If f1266 = 0 And f440 = 0 Then strTable = "SACOD"
    Else
        If f1266 = 1 Then strTable = "SASAT"
        If f440 = 1 And f1266 = 0 Then strTable = "SARES"
        If f440 = 0 And f1266 = 0 Then strTable = "SA"
    End If
    
    strQuery = "SELECT * FROM " & strTable & " Where SA = " & SingleQuotes(strSvcArea)
    rsSA.Open strQuery, g_connFSMSClient, adOpenKeyset, adLockOptimistic
    
    ' 2009-11-11, JFW, DelTime may be set by the reply trans
    If Not rsSA.EOF Then
        If f37(0) <> "" Then
            If txtDelTime(0) = "" Then
                txtDelTime(0) = rsSA!FO
            End If
        End If
        If f37(1) <> "" Then
            If txtDelTime(1) = "" Then
                txtDelTime(1) = rsSA!PO
            End If
        End If
        If f37(2) <> "" Then
            If txtDelTime(2) = "" Then
                txtDelTime(2) = rsSA!SO
            End If
        End If
        If f37(3) <> "" Then
            If txtDelTime(3) = "" Then
                txtDelTime(3) = rsSA!ES
            End If
        End If
        If f37(4) <> "" Then
            If txtDelTime(4) = "" Then
                txtDelTime(4) = rsSA!XS
            End If
        End If
    End If
    
Release:
    If rsSA.State = adStateOpen Then rsSA.Close
    Set rsSA = Nothing
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:GetDelTimes"
    Resume Release

End Sub
'---------------------------------------------------------------------------------------
' Procedure : ShowRateDetails()
' DateTime  : 6/28/2004
' Purpose   : Shows the Rate Details on the Service Quote tab when the Net or the Total
'             column is moused over.
'---------------------------------------------------------------------------------------
'
Private Sub ShowRateDetails(ByVal intIndex As Integer)
    On Error GoTo EH
    
    If optRate(0) Then 'Discounted rates
        txtDetails(1) = Format(Val(g_str34(intIndex)) * 0.01, "#.00")
        txtDetails(2) = Format(Val(g_str36(intIndex)) * 0.01, "#.00")
        txtDetails(3) = Format(Val(g_str35(intIndex)) * 0.01, "#.00")
        txtDetails(4) = f37(intIndex)
        txtDetails(5) = f1596(intIndex)
        txtDetails(6) = Format(Val(f37(intIndex)) + Val(f1596(intIndex)), "#.00")
    Else 'List Rates
        txtDetails(1) = Format(Val(g_str1519(intIndex)) * 0.01, "#.00")
        txtDetails(2) = ""
        txtDetails(3) = Format(Val(g_str1507(intIndex)) * 0.01, "#.00")
        txtDetails(4) = f1528(intIndex)
        txtDetails(5) = f1597(intIndex)
        txtDetails(6) = Format(Val(f1597(intIndex)) + Val(f1528(intIndex)), "#.00")
    End If
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:ShowRateDetails"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : ClearGlobalArrays()
' DateTime  : 10/16/2006
' Purpose   : Clears the fields arrays of Global vars
'---------------------------------------------------------------------------------------
'
Private Sub ClearGlobalArrays()
    
    On Error GoTo EH
    
    For i = 0 To 7
        g_str34(i) = ""
        g_str35(i) = ""
        g_str36(i) = ""
        g_str1507(i) = ""
        g_str1519(i) = ""
    Next
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote.ClearGlobalArrays"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : ClearRateDetails()
' DateTime  : 6/28/2004
' Purpose   : Clears the fields on the Service Quote tab under the Rate Details heading.
'---------------------------------------------------------------------------------------
'
Private Sub ClearRateDetails()
    
    On Error GoTo EH
    
    txtDetails(1) = ""
    txtDetails(2) = ""
    txtDetails(3) = ""
    txtDetails(4) = ""
    txtDetails(5) = ""
    txtDetails(6) = ""
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote.ClearRateDetails"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : ClearServiceQuoteTab()
' DateTime  : 6/28/2004
' Purpose   : Clears the input fields on the ServiceQuote tab.
'---------------------------------------------------------------------------------------
'
Private Sub ClearServiceQuoteTab()
    Dim i As Integer
    
    On Error GoTo EH
    
    'Clear the Rates and Delivery Commitments fields
    For i = 0 To 7
        f37(i) = ""
        f1528(i) = ""
        f1596(i) = ""
        f1597(i) = ""
        f1598(i) = ""
        f1599(i) = ""
        If i < 7 Then
            f409(i) = ""
        End If
        If i < 5 Then
            txtDelTime(i) = ""
        End If
        cmdError(i).Visible = False
        txtDetails(i) = ""
    Next
    'Clear the commitment time field
    For i = 0 To 4
        txtDelTime(i) = ""
    Next
    
    ' 2009-11-11, JFW, Smartpost only for US origin
    f37(7).Visible = (g_str117 = "US")
    f1528(7).Visible = (g_str117 = "US")
    f1596(7).Visible = (g_str117 = "US")
    f1597(7).Visible = (g_str117 = "US")
    f1598(7).Visible = (g_str117 = "US")
    f1599(7).Visible = (g_str117 = "US")
    cmdError(7).Visible = False
    txtDetails(7).Visible = (g_str117 = "US")
    
    'Clear Billed Weight fields
    f60(0) = ""
    f60(1) = ""
    'Clear the Shipment properties fields
    f16 = ""
    f17 = ""
    f1670 = ""
    f26 = ""
    f57 = ""
    f58 = ""
    f59 = ""
    cboBoxName = ""
    'Special Svcs
    f1266 = 0
    f27 = 0
    f440 = 0
    'Ground/FHD Special
    f3018 = 0
    f3020(1) = 0
    f3020(2) = 0
    f3020(3) = 0
    'Set # of Pkgs to 1
    ' 2009-02-01, JFW, Number of packages from Ship screen.
    f116 = frmShip.f116.Text
    'Sig Reg
    f2399(1) = True
    f2399(2) = False
    f2399(3) = False
    f2399(4) = False
    
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote.ClearServiceQuoteTab"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : f37_MouseMove, f1528_MouseMove, f1598_MouseMove, & f1599_MouseMove
' DateTime  : 6/28/2004
' Purpose   : These 4 routines call ShowRateDetails when these fields are moused over.
'             ShowRateDetails populates the Rate Details boxes on the Service Quote tab.
'---------------------------------------------------------------------------------------
'
Private Sub f37_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error GoTo EH
    
    
    If f37(Index) <> "" Then
        Call ShowRateDetails(Index)
    End If
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:f37_MouseMove"

End Sub

Private Sub f1528_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error GoTo EH
    
    If f1528(Index) <> "" Then
        Call ShowRateDetails(Index)
    End If
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:f1528_MouseMove"

End Sub

Private Sub f1598_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error GoTo EH
    
    ' 2009-11-11, JFW, Smartpost only for US origin
    If g_str117 = "US" Then
    If f1598(Index) <> "" Then
        Call ShowRateDetails(Index)
    End If
    End If
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:cboBoxName_LostFocus"

End Sub

Private Sub f1599_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    On Error GoTo EH
    
    If f1599(Index) <> "" Then
        Call ShowRateDetails(Index)
    End If
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:cboBoxName_LostFocus"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : f16_Change()
' DateTime  : 8/9/2004
' Purpose   : Calls a routine to populate the entire text of selected state.
'---------------------------------------------------------------------------------------
'
Private Sub f16_Change()
    If Len(f16) >= 2 Then
        Call SetComboSelection(f16, f16)
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdError_Click()
' DateTime  : 2/18/2004
' Purpose   : Error buttons on Ser Quote form. Show FXRS error for that service.
'---------------------------------------------------------------------------------------
'
Private Sub cmdError_Click(Index As Integer)
    
    On Error GoTo EH
    
    If cmdError(Index).Caption = "Error" Then
        MsgBox m_strErrorMsg(Index), vbExclamation, "Service Error"
    ElseIf cmdError(Index).Caption = "Ship" Then
        Select Case Index
            Case 0
                frmShip.f1274.Text = "06"
            Case 1
                frmShip.f1274.Text = "01"
            Case 2
                frmShip.f1274.Text = "05"
            Case 3
                frmShip.f1274.Text = "03"
            Case 4
                frmShip.f1274.Text = "20"
            Case 5
                frmShip.f1274.Text = "92"
            Case 6
                frmShip.f1274.Text = "90"
        End Select
        Call cmdClose_Click
        frmShip.f1274.SetFocus
    End If
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:cmdError_Click"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : optRate_Click()
' DateTime  : 6/18/2004
' Purpose   : Option buttons on the Service Quote tab to show List or Discounted rates.
'             f37, f1596, & f1598 are discount rate fields, and f1528, f1597, & f1599
'             are list rate fields.
'---------------------------------------------------------------------------------------
'
Public Sub optRate_Click(Index As Integer)
    Dim i As Integer
    
    On Error GoTo EH
    
    'Show discount rates
    If Index = 0 Then
        For i = 0 To f37.UBound
            lblRate(0).Caption = "Net"
            f37(i).Visible = (g_str117 = "US" Or i <> 7)
            f1596(i).Visible = (g_str117 = "US" Or i <> 7)
            f1598(i).Visible = (g_str117 = "US" Or i <> 7)
            f1528(i).Visible = False
            f1597(i).Visible = False
            f1599(i).Visible = False
        Next
    'Show list rates
    Else
        For i = 0 To f37.UBound
            lblRate(0).Caption = "List Net"
            f37(i).Visible = False
            f1596(i).Visible = False
            f1598(i).Visible = False
            f1528(i).Visible = (g_str117 = "US" Or i <> 7)
            f1597(i).Visible = (g_str117 = "US" Or i <> 7)
            f1599(i).Visible = (g_str117 = "US" Or i <> 7)
        Next
    End If
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:optRate_Click"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : f57_Change(), f58_Change(), f59_Change()
' DateTime  : 20080122-03
' Purpose   : Dimensions fields are a max length of 3. Set default text to show dimension
'---------------------------------------------------------------------------------------
'
Private Sub f57_Change()
    On Error GoTo EH
    
    Call CheckLength(f57, 3)
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmMPS:f57_Change"

End Sub

Private Sub f57_LostFocus()
    
    If f57.Text <> Trim(f57.Text) Then f57.Text = Trim(f57.Text)
    If f57 = "" Then f57 = " H "

End Sub

Private Sub f58_Change()
    On Error GoTo EH
    
    Call CheckLength(f58, 3)
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmMPS:f58_Change"

End Sub

Private Sub f58_LostFocus()
    
    If f58.Text <> Trim(f58.Text) Then f58.Text = Trim(f58.Text)
    If f58 = "" Then f58 = " W "

End Sub


Private Sub f59_Change()
    On Error GoTo EH
    
    Call CheckLength(f59, 3)
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmMPS:f59_Change"

End Sub

Private Sub f59_LostFocus()
    
    If f59.Text <> Trim(f59.Text) Then f59.Text = Trim(f59.Text)
    If f59 = "" Then f59 = " L "

End Sub
'---------------------------------------------------------------------------------------
' Procedure : f3020_Click()
' DateTime  : 2/18/2004
' Purpose   : Enables/disables FHD special services when selected/deselected
'---------------------------------------------------------------------------------------
'
Private Sub f3020_Click(Index As Integer)
    Dim i As Integer
    
    On Error GoTo EH
    
    If f3020(Index) = 1 Then
        For i = 1 To 3
            If Index <> i Then
                f3020(i).Enabled = False
            End If
        Next
    Else
        For i = 1 To 3
            f3020(i).Enabled = True
        Next
    End If
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:f3020_Click"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : ConvertDate
' DateTime  : 3/29/07
' Purpose   : Converts the DeliverBy date returned in field 409.
'---------------------------------------------------------------------------------------
'
Public Function ConvertDate(ByVal strDelBy As String) As String
    
    On Error GoTo EH
    
    Dim strDay As String
    Dim strYear As String
    Dim strMonth As String
    
    If strDelBy = "" Then
        ConvertDate = ""
    Else
        strDay = Left(strDelBy, 2)
        strYear = Right(strDelBy, 2)
        strMonth = Mid(strDelBy, 3, 3)
        Select Case strMonth
            Case "Jan"
                intMonth = 1
            Case "Feb"
                intMonth = 2
            Case "Mar"
                intMonth = 3
            Case "Apr"
                intMonth = 4
            Case "May"
                intMonth = 5
            Case "Jun"
                intMonth = 6
            Case "Jul"
                intMonth = 7
            Case "Aug"
                intMonth = 8
            Case "Sep"
                intMonth = 9
            Case "Oct"
                intMonth = 10
            Case "Nov"
                intMonth = 11
            Case "Dec"
                intMonth = 12
        End Select
        
        ConvertDate = Format(DateSerial(Val(strYear), intMonth, Val(strDay)), "mm/dd/yy")
    End If
    
    Exit Function
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:ConvertDate"

End Function
'---------------------------------------------------------------------------------------
' Procedure : GroundDelDate
' DateTime  : 8/11/2004
' Purpose   : Takes a ShipDate and Transit Days and checks an array of known weekday
'             holidays through 2010 and adds a day to the Transit Days if any of the
'             holidays is between the ShipDate and the ShipDate + Transit Days.
'             Then adds the Transit Days to the weekday value of the ShipDate and if
'             greater than 6 adds 2 days to account for Sat and Sun.
'---------------------------------------------------------------------------------------
'
Public Function GroundDelDate(ByVal dteShipDate As Date, ByVal intTransitDays) As String

    Dim dteWeekDayHoliday(35) As Date       'Array for weekday holidays
    Dim i                                   'For loop counter
    Dim dteDelDate As Date                  'Delivery date - shipdate + transit days
    
    On Error GoTo EH
    
    'weekday holidays
    dteWeekDayHoliday(1) = #11/25/2004#
    dteWeekDayHoliday(2) = #11/24/2005#
    dteWeekDayHoliday(3) = #11/23/2006#
    dteWeekDayHoliday(4) = #11/29/2007#
    dteWeekDayHoliday(5) = #11/27/2008#
    dteWeekDayHoliday(6) = #11/26/2009#
    dteWeekDayHoliday(7) = #11/25/2010#
    dteWeekDayHoliday(8) = #5/31/2004#
    dteWeekDayHoliday(9) = #5/30/2005#
    dteWeekDayHoliday(10) = #5/29/2006#
    dteWeekDayHoliday(11) = #5/28/2007#
    dteWeekDayHoliday(12) = #5/26/2008#
    dteWeekDayHoliday(13) = #5/25/2009#
    dteWeekDayHoliday(14) = #5/31/2010#
    dteWeekDayHoliday(15) = #1/1/2007#
    dteWeekDayHoliday(16) = #1/1/2008#
    dteWeekDayHoliday(17) = #1/1/2009#
    dteWeekDayHoliday(18) = #1/1/2010#
    dteWeekDayHoliday(19) = #7/4/2005#
    dteWeekDayHoliday(20) = #7/4/2006#
    dteWeekDayHoliday(21) = #7/4/2007#
    dteWeekDayHoliday(22) = #7/4/2008#
    dteWeekDayHoliday(23) = #7/6/2009#
    dteWeekDayHoliday(24) = #7/5/2010#
    dteWeekDayHoliday(25) = #12/25/2006#
    dteWeekDayHoliday(26) = #12/25/2007#
    dteWeekDayHoliday(27) = #12/25/2008#
    dteWeekDayHoliday(28) = #12/25/2009#
    dteWeekDayHoliday(29) = #9/6/2004#      'Labor Day
    dteWeekDayHoliday(30) = #9/5/2005#
    dteWeekDayHoliday(31) = #9/4/2006#
    dteWeekDayHoliday(32) = #9/3/2007#
    dteWeekDayHoliday(33) = #9/1/2008#
    dteWeekDayHoliday(34) = #9/7/2009#
    dteWeekDayHoliday(35) = #9/6/2010#

    'Calculate delivery date
    dteDelDate = dteShipDate + intTransitDays
    'Loop thru array, if date if between shipdate and deldate set flag to add 1 day
    For i = 1 To UBound(dteWeekDayHoliday)
        If dteWeekDayHoliday(i) >= dteShipDate And dteWeekDayHoliday(i) <= dteDelDate Then
            intTransitDays = intTransitDays + 1
        End If
    Next
    
    'If greater than 6 (Friday) then add 2 days
    If Weekday(dteShipDate) + intTransitDays > 6 Then
        GroundDelDate = Format(dteShipDate + (intTransitDays + 2), "mm/dd/yy")
    Else
        GroundDelDate = Format(dteShipDate + intTransitDays, "mm/dd/yy")
    End If
    
    Exit Function

EH:
    MsgBox Err.Description, vbCritical, "frmQuote:GroundDelDate"

End Function
'---------------------------------------------------------------------------------------
' Procedure : FHDDelDate
' DateTime  : 8/11/2004
' Purpose   : Takes a ShipDate and Transit Days and checks an array of known holidays
'             not on Sun/Mon through 2010 and adds a day to the Transit Days if any of
'             the holidays is between the ShipDate and the ShipDate + Transit Days.
'             Then adds the Transit Days to the weekday value of the ShipDate and if
'             greater than 7 adds 2 days to account for Sun and Mon.
'---------------------------------------------------------------------------------------
'
Public Function FHDDelDate(ByVal dteShipDate As Date, ByVal intTransitDays) As String

    Dim dteWeekDayHoliday(37) As Date       'Array for weekday holidays
    Dim i                                   'For loop counter
    Dim dteDelDate As Date                  'Delivery date - shipdate + transit days
    
    On Error GoTo EH
    
    'Non Sun/Mon holidays
    dteWeekDayHoliday(1) = #11/25/2004#     'Thanksgiving
    dteWeekDayHoliday(2) = #11/24/2005#
    dteWeekDayHoliday(3) = #11/23/2006#
    dteWeekDayHoliday(4) = #11/29/2007#
    dteWeekDayHoliday(5) = #11/27/2008#
    dteWeekDayHoliday(6) = #11/26/2009#
    dteWeekDayHoliday(7) = #11/25/2010#
    dteWeekDayHoliday(8) = #5/31/2004#      'Memorial day
    dteWeekDayHoliday(9) = #5/30/2005#
    dteWeekDayHoliday(10) = #5/29/2006#
    dteWeekDayHoliday(11) = #5/28/2007#
    dteWeekDayHoliday(12) = #5/26/2008#
    dteWeekDayHoliday(13) = #5/25/2009#
    dteWeekDayHoliday(14) = #5/31/2010#
    dteWeekDayHoliday(15) = #1/1/2005#      'New Year's Day
    dteWeekDayHoliday(16) = #1/1/2008#
    dteWeekDayHoliday(17) = #1/1/2009#
    dteWeekDayHoliday(18) = #1/1/2010#
    dteWeekDayHoliday(19) = #7/4/2006#      'July 4th
    dteWeekDayHoliday(20) = #7/4/2007#
    dteWeekDayHoliday(21) = #7/4/2008#
    dteWeekDayHoliday(22) = #7/4/2009#
    dteWeekDayHoliday(23) = #7/6/2005#      'Tuesday
    dteWeekDayHoliday(24) = #7/5/2006#      'Tuesday
    dteWeekDayHoliday(25) = #7/7/2010#      'Tuesday
    dteWeekDayHoliday(26) = #12/25/2004#    'Christmas Day
    dteWeekDayHoliday(27) = #12/25/2007#
    dteWeekDayHoliday(28) = #12/25/2008#
    dteWeekDayHoliday(29) = #12/25/2009#
    dteWeekDayHoliday(30) = #12/25/2010#
    dteWeekDayHoliday(31) = #9/7/2004#      'Labor Day
    dteWeekDayHoliday(32) = #9/6/2005#
    dteWeekDayHoliday(33) = #9/5/2006#
    dteWeekDayHoliday(34) = #9/4/2007#
    dteWeekDayHoliday(35) = #9/2/2008#
    dteWeekDayHoliday(36) = #9/8/2009#
    dteWeekDayHoliday(37) = #9/7/2010#

    'Calculate delivery date
    dteDelDate = dteShipDate + intTransitDays
    'Loop thru array, if date if between shipdate and deldate set flag to add 1 day
    For i = 1 To UBound(dteWeekDayHoliday)
        If dteWeekDayHoliday(i) >= dteShipDate And dteWeekDayHoliday(i) <= dteDelDate Then
            intTransitDays = intTransitDays + 1
        End If
    Next
    
    'If greater than 7 (Saturday) then add 2 days
    If Weekday(dteShipDate) + intTransitDays > 7 Then
        FHDDelDate = Format(dteShipDate + (intTransitDays + 2), "mm/dd/yy")
    Else
        FHDDelDate = Format(dteShipDate + intTransitDays, "mm/dd/yy")
    End If
    
    Exit Function

EH:
    MsgBox Err.Description, vbCritical, "frmQuote:FHDDelDate"

End Function
'---------------------------------------------------------------------------------------
' Procedure : QuoteReply
' DateTime  : 20070626
' Purpose   : Called from frmShip.g_clsParser_ParseComplete. Handles all FXRS replies
'             when performing a Service Quote.
'---------------------------------------------------------------------------------------
'
Public Sub QuoteReply(ByVal str1274 As String, ByVal blnError As Boolean)
    
    On Error GoTo EH

    Dim i As Integer
    
    ' debugprint "QuoteReply", str1274, g_str37
    
    Select Case str1274
        Case "06"
            i = 0
        Case "01"
            i = 1
        Case "05"
            i = 2
        Case "03"
            i = 3
        Case "20"
            i = 4
        Case "92"
            i = 5
        Case "90"
            i = 6
    End Select
    
    If blnError Then
        Call SetQuoteError(i, g_str3)
    ElseIf g_str1125 <> "" And g_str1125 <> "0" Then
        Call SetQuoteError(i, GetRateError(g_str1125))
    
    ' 2009-11-11, JFW, Smartpost only for US origin
    ElseIf g_str117 <> "US" And i = 7 Then
    
    Else
        f37(i) = Format(Val(g_str37) * 0.01, "#####.00")
        If i < 5 Then
            ' 2011-04-26, JFW, Blanks coming through, trim them, for ConvertDate logic.
            f409(i) = ConvertDate(Trim(g_str409))
            txtDelTime(i) = g_str1981
        End If
        f1528(i) = Format(Val(g_str1528) * 0.01, "#####.00")
        f1596(i) = Format(Val(g_str1596) * 0.01, "#####.00")
        f1597(i) = Format(Val(g_str1597) * 0.01, "#####.00")
        f1598(i) = Format(Val(g_str1598) * 0.01, "#####.00")
        f1599(i) = Format(Val(g_str1599) * 0.01, "#####.00")
        
        If i = 1 Then f60(0) = g_str60
        If i = 5 Then f60(1) = g_str60
        cmdError(i).Visible = True
        cmdError(i).Caption = "Ship"
        cmdError(i).ToolTipText = "Click to ship with this service"
        m_strErrorMsg(i) = ""
        If i = 5 Then
            If f1266 = 1 Then
                Call SetQuoteError(5, "FedEx Ground does not deliver on Saturdays")
            Else
                f409(i) = GroundDelDate(CDate(f24), g_str3058)
            End If
        End If
        If i = 6 Then
            If f27 = 1 Then
                Call SetQuoteError(6, "FedEx Home Delivery does not support COD shipments")
            Else
                f409(i) = FHDDelDate(CDate(f24), g_str3058)
                If f1266 = 1 And Weekday(f409(i)) <> 7 Then
                    Call SetQuoteError(6, "Delivery day is not Saturday")
                End If
            End If
        End If
    End If
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, "frmQuote:QuoteReply"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : CalcSPHandling
' DateTime  : 20070626
' Purpose   : Calculates SmartPost handling charges.
'---------------------------------------------------------------------------------------
'
Private Function CalcSPHandling(ByVal intCount As Integer) As String
    
    On Error GoTo EH

    Dim i As Integer
    Dim strAmount As String
    
    With frmSetup
        i = IIf(.chkBySvc = 1, 7, 0)
        
        If .f1588(1) Then
            strAmount = .f1595(i)
        Else
            strAmount = Str(Val(.f1595(i) * 0.01) * Val(f37(7)))
        End If
        
        If .f1606(0) Then                                   'Per Pkg
            CalcSPHandling = Format(Val(strAmount) * intCount, "####.00")
        Else                                                'Per Shipment
            CalcSPHandling = Format(strAmount, "####.00")
        End If
        
    End With
    
    Exit Function

EH:
    MsgBox Err.Description, vbCritical, "frmQuote:CalcSPHandling"

End Function
'---------------------------------------------------------------------------------------
' Procedure : SetQuoteError
' DateTime  : 20070626
' Purpose   : Set's the fields and Error button when there's an error when quoting a svc.
'---------------------------------------------------------------------------------------
'
Private Sub SetQuoteError(ByVal intIndex As Integer, ByVal strError As String)
    
    On Error GoTo EH

    ' 2009-11-11, JFW, Smartpost only for US origin
    If g_str117 <> "US" Or intIndex <> 7 Then

            f37(intIndex) = ""
            If intIndex < 7 Then f409(intIndex) = ""
            f1528(intIndex) = ""
            f1596(intIndex) = ""
            f1597(intIndex) = ""
            f1598(intIndex) = ""
            f1599(intIndex) = ""
            If intIndex < 5 Then txtDelTime(intIndex) = ""
            cmdError(intIndex).Visible = True
            cmdError(intIndex).Caption = "Error"
            cmdError(intIndex).ToolTipText = strError
            m_strErrorMsg(intIndex) = strError

    End If
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, "frmQuote:SetQuoteError"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : StartQuotes
' DateTime  : 20070626
' Purpose   : Set's the fields and Error button when there's an error when quoting a svc.
'---------------------------------------------------------------------------------------
'
Private Sub StartQuotes()
    
    On Error GoTo EH

    Dim i As Integer
    
    For i = 0 To 6
        g_blnComplete = False
        Call SendData(BuildRateTrans("QUOTE" & m_strSvcCodes(i)))
        Do Until g_blnComplete
            DoEvents
        Loop
    Next
    Call QuoteSP
    Call GetDelTimes(g_str33)
    
    Exit Sub

EH:
    MsgBox Err.Description, vbCritical, "frmQuote:StartQuotes"

End Sub
'---------------------------------------------------------------------------------------
' Procedure : QuoteSP
' DateTime  : 20070626
' Purpose   : Quotes SmartPost
'---------------------------------------------------------------------------------------
'
Private Sub QuoteSP()
    
    On Error GoTo EH
    
    Dim rsQuote As New ADODB.Recordset
    Dim strQuery As String
    Dim strTotal As String              'Total when rating MPS
    Dim dblTotal As Double
    Dim intNumPieces As Integer
    
    ' 2009-11-11, JFW, Smartpost only for US origin
    If g_str117 <> "US" Then Exit Sub
    
    strQuery = "SELECT * FROM MPS WHERE f1 = 'QUOTE'" & " order by ShipDate"
    
    rsQuote.Open strQuery, g_connFSMSClient, adOpenStatic, adLockOptimistic
    
    If Not rsQuote.EOF Then
    
        Do Until rsQuote.EOF
        
            Call RateSP(f17, rsQuote!g_str1670, IIf(optPM, "F", "B"))
            dblTotal = dblTotal + Val(g_str37)
            rsQuote.MoveNext
        
        Loop
        
        intNumPieces = rsQuote.RecordCount
        g_str37 = CStr(dblTotal)
        
    Else
    
        Call RateSP(f17, f1670, IIf(optPM, "F", "B"))
        intNumPieces = 1
    
    End If
    
    If frmSetup.chkAddHndlChg = 1 Then
        
        f1596(7) = CalcSPHandling(intNumPieces)     'Disc Hndling chg
        f1597(7) = f1596(7)                         'List Hndling = Disc Hndling
    
    Else
        
        'Hnlding chgs set to $0
        f1597(7) = ".00"
        f1596(7) = ".00"
    
    End If
    
    f37(7) = g_str37                            'Disc Net
    f1528(7) = f37(7)                           'List Net = Disc Net
    g_str34(7) = Format(Val(f37(7)) * 100)
    g_str1519(7) = g_str34(7)
    f1598(7) = Str(Val(f37(7)) + Val(f1596(7))) 'Tot Cust Chg = Net Chg + Disc Hndling
    f1599(7) = f1598(7)                         'List Tot Cust Chg = Disc Tot Cust Chg
            
Release:
    If rsQuote.State = adStateOpen Then rsQuote.Close
    Set rsQuote = Nothing
    
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:QuoteSP"
    Resume Release

End Sub
'---------------------------------------------------------------------------------------
' Procedure : QuoteLTL
' DateTime  : 20070626
' Purpose   : INCOMPLETE ROUTINE! Will update if LTL ios added to Service Quote.
'---------------------------------------------------------------------------------------
'
'Private Sub QuoteLTL()
'    Call ParseXMLReply(SendXMLData(BuildFreightRate))
'    If g_str3 <> "" Then
'        Call SetQuoteError(8, g_str3)
'    Else
'    With frmSetup
'        strAmount = IIf(.chkBySvc = 1, .f1595(8), .f1595(0))
'
'        If .chkAddHndlChg = 1 Then
'
'            f1596(8) = CalcSPHandling
'
'            If f116 > 1 Then
'                f37(8) = Str(Val(g_str37) * Val(f116))
'                If .f1606(0) Then
'                    f1596(8) = Format(Val(f1596(8)) * Val(f116), "####.00")
'                End If
'            Else
'                f37(8) = Replace(g_str, "$", "")
'            End If
'        Else
'            f37(8) = Replace(g_str, "$", "")
'            f1528(8) = f37(8)
'            f1597(8) = ".00"
'            f1596(8) = ".00"
'        End If
'    End With
'    f1528(8) = f37(8)
'    g_str34(8) = Format(Val(f37(8)) * 100)
'    g_str1519(8) = g_str34(8)
'    f1597(8) = f1596(8)
'    f1598(8) = Str(Val(f37(8)) + Val(f1596(8)))
'    f1599(8) = f1598(8)
'
'End Sub
'---------------------------------------------------------------------------------------
' Procedure : AssignFormGlobalVars
' DateTime  : 20070626
' Purpose   : Assign form's field to appropriate global vars.
'---------------------------------------------------------------------------------------
'
Public Sub AssignFormGlobalVars()
    
    On Error GoTo EH
    
    g_str8 = Left(f8, 2)
    g_str9 = f9
    g_str16 = Left(f16, 2)
    g_str17 = f17
    g_str50 = Left(frmShip.f50, 2)
    g_str116 = f116
    
    g_str1670 = Format(f1670, "##.00")
    g_str24 = Format(f24, "YYYYMMDD")
    g_str26 = f26
    g_str57 = IIf(IsNumeric(f57), f57, "")
    g_str58 = IIf(IsNumeric(f58), f58, "")
    g_str59 = IIf(IsNumeric(f59), f59, "")
    
    'Special Svcs
    g_str1266 = IIf(f1266 = 1, "Y", "")
    g_str27 = IIf(f27 = 1, "Y", "")
    g_str440 = IIf(f440 = 1, "Y", "")
    g_str3018 = IIf(f3018 = 1, "Y", "")
    
    'Ground/FHD Special
    If f3020(1) = 1 Then
        g_str3020 = "1"
    ElseIf f3020(2) = 1 Then
        g_str3020 = "2"
    ElseIf f3020(3) = 1 Then
        g_str3020 = "3"
    Else
        g_str3020 = ""
    End If
    
    'Sig Svcs
    If f2399(2) Then
        g_str1208 = "Y"
        g_str2399 = "2"
    ElseIf f2399(3) Then    'Direct
        g_str1208 = "Y"
        g_str2399 = "3"
    ElseIf f2399(4) Then    'Adult
        g_str1208 = "Y"
        g_str2399 = "4"
    Else
        g_str1208 = ""
        g_str2399 = ""
    End If
    
    'SmartPost
    g_strClass = IIf(optStdB, "B", "F")
    g_strSubClass = "P"
    
    'Misc
    g_str1273 = "01"
    g_str23 = "1"
    ' 2008-09-28, JFW, quote weight type
    ' g_str75 = "LBS"
    g_str75 = frmShip.f75
    
    ' 2008-04-24, JFW, v800 for CA.
    'Added 7/22/05 for Admissibility pkg type for US to CA, CA to US
    If g_str1273 = "01" And (g_str50 = "US" Or g_str50 = "CA") Then
        g_str1958 = Left(frmShip.f1958, 3)
        If g_str1958 = "" Then g_str1958 = "BOX"
    Else
        g_str1958 = ""
    End If
            
    Exit Sub
EH:
    MsgBox Err.Description, vbCritical, "frmQuote:AssignFormGlobalVars"

End Sub
'Service Quote Origin ZIP
Private Sub f9_GotFocus()
    Call SelectAllText(f9)
End Sub
'Service Quote Num pkgs
Private Sub f116_GotFocus()
    Call SelectAllText(f116)
End Sub
'Service Quote Date
Private Sub f24_GotFocus()
    Call SelectAllText(f24)
End Sub
'Service Quote Dec Val
Private Sub f26_GotFocus()
    Call SelectAllText(f26)
End Sub
'Service Quote H Dim
Private Sub f57_GotFocus()
    Call SelectAllText(f57)
End Sub
'Service Quote W Dim
Private Sub f58_GotFocus()
    Call SelectAllText(f58)
End Sub
'Service Quote L Dim
Private Sub f59_GotFocus()
    Call SelectAllText(f59)
End Sub
'Service Quote Destination Zip
Private Sub f17_GotFocus()
    Call SelectAllText(f17)
End Sub
'Service Quote Weight
Private Sub f1670_GotFocus()
    Call SelectAllText(f1670)
End Sub

Private Sub timerQuote_Timer()

    On Error Resume Next
    timerQuote.Enabled = False
    Call cmdContinue_Click
    
End Sub
